(4-83 


OCT 1983 
COPYRIGH TE 


Com 


Al 


AH-858 
FICHE | 


i 
ef 
-. 
Lil 
C3 
Lu 
oO 
ei 
LL 


CON 


r inet 
i F 
iy bee 
eT TRACT yey 


| 
| | 0, RE Ce 
CSE | ARE * moka © Here 


Hees 


= 


corre 
) 


[(_ sa 


oe be ie | 
Sr Lal 





SEQ 1 
CZDPE MACY11 30A(1052) 20-JUL-83 15:32 PAGE 8 
CZDPEC.P11 19=JUL=83 17:09 


IDENTIFICATION 


PRODUCT CODE: AC-8588C-MC 

PRODUCT NAME: CZDPECO DUP11 CONFIDENCE TST 
DATE: JUNE 1983 

MAINTAINER: MK=-DIAGNOSTICS 


THE INFORMATION IN THIS Ay ny IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS “as FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1974, 1979, 1983 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 
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1.0 


ABSTRACT 


THE FUNCTION OF THE atten IS TO PROVIDE A LEVEL OF 
CONFIDENCE IN THE OPERATION OF THE DUP-11 WITHOUT CHANGING 
JUMPERS OR SWITCHES FROM CUSTOMER CONFIGURATION. 


THE OPTION IS TESTED IN SDLC MODE (BIT-STUFFING), THEN IN DEC 

E USING A SIMULATED DDCMP-LINE PROTOCOL WITH AN IMBEDDED 
CRC CHARACTER. BOTH OF THESE MODES WILL BE TESTED OVER A 
CABLE IF A TURNAROUND IS POSSIBLE. 


He MODEM eetek’ sk une WILL ALSO BE TESTED 





IF THE H325 TURN- 


USED. THE DETERMINATION OF WHAT WILL GE 


AROUND CONNECT 
TESTED IS DONE BY ANSWERING A "PARAMETER DIALOG’ (LOAD ADDRESS 
200, START ADDRESS 0 OR 1.) ALL {QUESTIONS MUST BE ANSWERED. 
IF AN ERROR SHOULD OCCUR YPEOUT WILL EXPLAIN THE 
FUNCTIONAL AREA OF THE DEVICE Mia FAILED. TO REPAIR THE 
OPTION, THE DIAGNOSTICS WILL HAVE TO BE RUN. 


ADDITIONALLY THE MODEM DATA LEADS MAY NOW BE TESTED IF A MO- 
DEM HAS THE ANALOG LOOPBACK FEATURE ENABLED. 


CURRENTLY THERE ARE THREE aoe tual DIAGNOSTICS THAT ARE TO BE 
RUN IN SEQUENCE TO ENSURE THAT IF AN ERROR SHOULD OCCUR at 

WILL BE DETECTED AT AN EARLY STAGE AND ESTABLISH THA 
DIAGNOSIS OF THE ERROR WILL BE IMMEDIATE TO DISCOVERING THE 
PROBLEM. 

NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 

THE THREE DIAGNOSTICS ARE: 


1.1 CZDPB CREV] BASIC AND OFFLINE TRANSMITTER TESTS. 
1.2 CZDPC CREVJ OFFLINE righty TESTS, MODEM CONTROL AND 


1.3 CZDPD CREVJ OFFLINE SDLC DATA AND FUNCTION OFFLINE DECMODE 
1.4 CZDPO CREV] DP11 OVERLAY FOR INTERPROCESSOR TEST PROGRAM 
NOTE: THE FOURTH TAPE IS: 
1.5 CZDPE CREVJ THIS CONFIDENCE TEST. 

eeNOTE** 
CZDPE WILL ONLY TEST ONE DUP11 AT A TIME, IF TESTING 


OF ANOTHER DUP11 IS DESIRED, RESTART AT 200 AND ENTER 
NEW PARAMETERS. 
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2.0 REQUIREMENTS 

2.1 EQUIPMENT 
2.1.1. won PDP11 FAMILY CPU _ MINIMUM 4K MEMORY) 
2.1.2. FT (OR EQUILIVALENT) 
g.1.3. al 
2.1.4. H525 TEST CONNECTOR 
2.1.5. MODEM WITH ANALOG LOOPBACK FEATURE 

2.2 STORAGE 


3.0 
3.1 


3.1.1 


3.1.2 
3.1.3 





PROGRAM WILL USE ALL 4K OF MEMORY a PT WHERE ABS AND 
BOOTSTRAP LOADER RESIDE. gee 1500 THRU 1560 ARE 
ESPECIALLY TO BE NOTED AND LEFT UNTOUCHED BY THE OPERATOR 
AFTER THE DUP11 PARAMETER DIALOG HAS BEEN EXECUTED OR AFTER 
THE DEFAULT SETUP HAS BEEN DONE. 


LOADING PROCEDURE 

METHOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA 
SUCH AS DISK.  MAGTAPE, DECTAPE, OR CASSETTE FOLLOW 
SNS TRUCTIONS FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT 
SPECIFIC MEDIA. 


ABSOLUTE LOADER STARTING ADDRESS = *+500 


MEMORY SIZE 
(*)= 
4K 17 
8K 37 
12K 57 
16K 77 
20K 117 
24K 137 
28K 157 
PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. (ALSO PLACE 
"HALT’ SW UP) 


DEPRESS "LOAD ADDRESS* KEY ON CONSOLE AND RELEASE. 


DEPRESS “START KEY* ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
BE LOADING INTO CPU) 


SEQ 5 
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4.0 


4.1 
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STARTING PROCEEDURE 

A. SET SWITCH REGISTER TO 000200 

B. DEPRESS ‘LOAD ADDRESS’ KEY AND RELEASE 

C. yt SWR | 7=1 TO USE EXISTING PARAMETERS PREVIOUSLY 





UP BY THE DUP11 PARAMETER DIALOG. WHENEVER PROGRAM IS STARTED 


S 
AT ADR 200 WITH SWR BIT7=0, NEW PARAMETERS MUST BE LOADED. 


"EXAMPLE ° 
"MAP OF DUP11 STATUS" 
1500 160050 CSR OF DUP11 
1502 000300 VECTOR OF DUP11 


THE ABOVE IS ONLY AN EXAMPLE! THIS es INDICATE STATUS 
TABLE STARTING AT ADDRESS 1500 IN THE PROGRAM. THE STATUS 
TABLE MUST BE VERIFIED BY THE USER. 


YW IS POSSIBLE FOR . OPERATOR TO MANUALLY CHANGE (TOGGLE IN) 
THE INFORMATION IN THE MAP TO SUIT A SPECIFIC CONFIGURATION, 
BUT THE RESPONSIBILITY FOR VERIFYING THAT INFORMATION RESTS 

WITH THE OPERATOR. 


THE PROGRAM WILL TYPE °R® AND PROCEED TO RUN THE MAINDEC 
CONTROL SWITCH SETTINGS 


Sw 15 SET: HALT ON ERROR 

SW 14 SET: LOOP ON CURRENT TEST 

SW 13 0) SET: INHIBIT ERROR PRINT OUT 

SW 12 SET: INHIBIT TYPE OUT/BELL ON ERROR. 
Sw 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 
Sw 10 SET: ESCAPE TO NEXT TEST ON ERROR 

SW 09 SET: RESERVED 

SW 08 SET: CATCH ERROR AND LOOP ON IT 

SW 07 SET: se 3 ag STATUS TABLE. 


SW og SET: RESE 

Sw 0 SET: RESERVED 

SW 04 SET: RESERVED 

SW 03 SET: RESERVED 

SW 02 SET: LOCK ON SELECTED TEST 

SW 01 SET: RESTART PROGRAM AT SELECTED TEST 
SW 00 SET: RESERVED 


SWITCHES of THROUGH 15 ARE DYNAMIC AND SH ie 


IN THE DIAGNOSTIC. SWITCHES 0 THROUGH 
OPERABLE WHEN N THE MONITOR 


SET UP PRIOR TO STARTING OR 


ARE 
PORTION OF THE TAPE 
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4.1.2 


4.1.3 


4.2 
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DIAGNOSTIC. 
SWITCH REGISTER RESTRICTIONS 
Sw 01 er ereet PROGRAM AT ty ys TEST. IT JS STRONGLY 


UGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 
Habba TO i A TEST THAT aS er IN LR ot m 





RWS I 
TION OF THE PROGRAM. IT IS POSSIBLE TO , AND 
RAISE Sw0l. THEN START, PROVIDED PARAMETERS HAVE BEEN 
PREVIOUSLY SET UP AS DESCRIBED IN SECTI ALSO, 
WHEN A A TEST 1S SELECTED, ALWAYS START AT THE VERY 
BEGINNING OF THAT TEST. 


SWITCH REGISTER PRIORITIES 
A) ERROR SWITCHES 


1. Sw 12 DELETE PRINT OUT/GELL ON ERROR. 
2. Swi a ERROR PRINTOUT. 
SW 15 HA Ub THE E 


Sw 08 GOTO BEGINNING OF THE TEST(ON ERROR). 
5. Sw 10 GOT NEXT TEST(ON ERROR). 


B) SCOPE SWITCHES 


1. SW 14 = LOOP ON TEST. WILL LOOP ON TEST UNTIL SWITCH 
IS LOWERED. 


2. SW pI - INHIBIT Pg se (QUICK PASS). ALLOWS ONLY 
ONE PASS THROUGH A TEST. 


STARTING ADDRESS 


STARTING ADDRESS IS AT 000200. THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE DUP11 DIAGNOSTICS OR THIS EXERCISER. 


NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES | 11 
IS UNDER ACT11_ OR XXDP_ CONTROL AND WILL ACT 
ACCORDINGLY. MAETER DUPI1 I$ TESTED. THE PROGRAM WILL 
RETURN TO XXDP" OR “ACT-11°. ALSO, 
ACTIT’" OR CXXDP™ CONTROL THE FOLLOWING DEFAULT 
VARAMETERS ARE ASSUMED: 


4.2.1. ALL JUMPERS ARE ASSUMED TO BE IN 
THE FOLLOWING CONFIGURATION: 














IN Cui 
Wi = SEC REC ENABLE x 
W2 = SEC REC DISABLE zB 
W5 = CLEAR OPTION 
W4 = SEE TX ENABLE % 
W5 = DSC A CONTROL s 
W6 = A+B DS CONTROL x 


SEQ 5 
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5.0 


5.1 


6.0 


6.1 


7.0 


W7 = BUS GRANT CONTROL x 
4.2.2. H325 TEST CONNECTOR IS ASSUMED TO BE ON. 


4.2.3. THE MANUFACTURING OPTION CSR 160050 AND 
VECTOR OF 770 ARE USED. 


4.2.4. THE BR LEVEL IS ASSUMED TO BE 5. 


OPERATING PROCEDURE 


WHEN THE PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 
re eamenetic.. WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING 


PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


1. HALT ON ERROR (VIA SW 15=1) WHENEVER AN ERROR OCCURS. 
2. CLEAR SW 15. 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 
ERROR MESSAGE (THIS DEPENDS ON THE TEST), TO GIVE THE OPERATOR 
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT, LOOK IN 
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 
NOTE THE PC OF THE ER T. THIS WAY THE EXACT 
FUNCTIONING OF THE TEST CAN BE INTERPRETED SINCE THE ERROR PC 
IS THE HLT+2 LOCATION. 


AT THIS POINT IT IS RECOMMENDED THAT THE NORMAL DIAGNOSTICS BE 
RUN TO ISOLATE THE ERROR CONDITION. 






ERRORS 
AS DESCRIBED ag ih THERE WILL ALWAYS BE A TEST NUMBER 
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 — NS 


ice 0). ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE ERROR 
SAGE WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE 


ERROR RECOVERY 


F FOR SOME REASON THE DUP11 SHOULD cert THE BUS’ (GAIN 
CTIONS ARE INHIBITED) 
RATOR REGAIN 





R OF THE T THAT S _RUNN H 
TIME OF THE CATASTROPHIC ERROR. THIS GIVES THE OPERATOR SOME 
IDEA AS TO WHAT THE DUP11 WAS DOING AT THE TIME OF THE ERROR. 


RESTRICTIONS 


SEQ 6 
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CZDPE..P11 


7.1 


7.2 


8.0 


8.1 


8.2 


8.3 


STARTING RESTRICTIONS 


SEE SECTION 4 (PLEASE). STATUS TABLE SHOULD BE VERIFIED 
REGARDLESS OF HOW THE PROGRAM WAS STARTED. 


OPERATING RESTRICTIONS 
DUP11 PARAMETER DIALOG MUST BE ANSWERED BEFORE RUNNING THIS 
PROGRAM. 


1. ANSWER THE COMPLETE PARAMETER DIALOG AGAIN. 


2. TOGGLE IN THE NEW CSR AT 1500 AND THE VECTOR AT 1502, THEN 
RESTART THE PROGRAM WITH SWO7=1. 


MISCELLANEOUS 
EXECUTION TIME 


ALL DUP11 DEVICE DIAGNOSTICS oat et} GIVE AN ‘END PASS‘ are a 
(PROVIDING NO ERRORS AND WITHIN 4 MINS. THIS IS 
ASSUMING SW11=1 (DELETE ITERATIONS). IS SET TO GIVE THE FASTEST 
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
ON THE PDP11 CPU CONFIGURATION. 


PASS COMPLETE 


NOTE: *EVERY* TIME THE PROGRAM IS STARTED, = TESTS WILL RUN 
AS IF SW11 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO a 3 IFY 
NO *HARD* eit AS SOON AS POSSIBLE. THEREFORE THE FIRST 
PASS--EACH TI PROGRAM IS _STARTED=--WILL BE A ‘QUICK PASS‘ 
UNTIL ALL _DUP11°S IN SYSTEM an TESTED. WHEN THE DIAGNOSTIC 
HAS COMPLET A PASS WITH THE NORMAL_ ITERATION COUNT 
iS be ade 1 THE FSiLLOwiNG IS AN EXAMPLE OF THE PRINT OUT TO 


END PASS CZDPB? CSR:160050 VEC:300 PASSES:000001 ERRORS :000000 


NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE 
GLE FOR THE DEVICE. THEY ARE ONLY FOR THIS 









KEY LOCATIONS 

RETURN CONTAINS 3 ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 

TEST IS ASSERTED. 


NEXT CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 
PERFORMED. 


TSTNO CONTAINS THE NUMBER OF THE TEST NOW BEING 
PEFORMED. 


SEQ 7 


I 1 
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weNOTE*s 
IT SHOULD BE REMEMBERED THAT CZDPE IS NOT A gf eg BUT 
IT IS A poe esete TEST DESIGNED TO ery tt: ONLY THAT THE 
THE FAILURE — DUPTT DAGNOSTICS 


DEVICE IS OPERAT RE IS A 
WILL HAVE TO BE RUN FOR SPECIFIC FAULT DETECTION 


7.5 SEQ 9 
CZDPE MACY11 gOACIO3¢) yepath-S5 13:32 PAGE 17 
CZDPEC.P11 19=JUL=835 17:09 INTRODUCTION TO DUP11 DIAGNOSTIC 


s*CZDPECO /<377>/DUP11 CONFIDENCE TST 
:*COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


;* Rey Ge et ee ey CRD ORS A GE ES OS ED se ED EE SH ED GD SD SS OP ES GD Mr GS EES EE OS ae Ge te eS oe eS 





STARTING PROCEDURE 


cL 

“LOAD ADDRESS 000200 
s PRESS START 
PROGRAM WILL TYPE ‘‘CZDPECO /<377>/DUP11 CONFIDENCE TST *' 
“PROGRAM WILL TYPE R’’ TO INDICATE THAT TESTING HAS STARTED 
“AT THE END OF A PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
SAND THEN RESUME TESTING 








SWITCH REGISTER OPTIONS 












100000 $W15=100000 ¢=1,HALT ON ERROR 

049000 SW14=4 :=1,LO0P ON CURRENT TEST 

020000 SW13=2 3=1, INHIBIT ERROR TYPEOUT 

10000 SwW12=10000 7=1,DELETE TYPEOUT/BELL ON ERROR. 
410 SW11=4000 :=1, INHIBIT ITE 
411 002000 SW10=2000 sel, TO NEXT TEST ” ERROR 
412 001000 $w09=1000 3=1,LOOP WITH CURRENT DATA 
413 000400 Sw08=400 :=1,LO0P ON ERROR 
414 000200 S$w07=200 
415 000100 Sw06=1 
416 000040 SW05=4 
417 000020 Sw04=2 
418 000010 SwO3=1 SELECT DUP’S DESIRED ACTIVE 
419 ;NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 
420 000004 SW02=4 LOCK ON TEST SELECT 
421 000002 Sw01=2 RESTART PROGRAM AT SELECTED TEST 
422 000001 Sw00=1 SENTER PARAMETERS 
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450 
45 
54 
456 
458 
460 
461 
“6s 
464 
465 
“67 
468 
469 
470 
471 


177776 
001150 


Bates 13:32 PAGE 


18 


kK 1 


GENERAL DEFINITIONS AND EQUIVALENCIES 


REGISTER DEFINITIONS 


PS=17777 


STACK=1150 









PUSH1SP=5746 
POP1SP=5726 
PUSHRO=1 0046 


PUSHESPS 34646 : INCR 
-EQUIV EMT,HLT ;BASIC DEFINITION OF ERROR CALL 


pith 7s) 


+ GENERAL REGISTER 
RAL 





GE REGISTER 
SPROCESSOR STACK POINTER 
;PROGRAM COUNTER 





sLOCATION EQUIVALENCIES 


sPROCESSOR STATUS WORD 


;START OF PROCESSOR STACK 
: INSTRUCTION DEFINITIONS 


sDECREMENT PROCESSOR STACK 1 WORD 
3 INCREMENT PROCESSOR STACK 1 WORD 
RO ON STACK 





SEQ 10 


Ll 1 








SEQ 11 
CZDPE_ MACYI1 30AC1052)_ _20-JUL~B3 13:32, PAGE, 19 
CZDPEC.P11 TRAPCATCHER FOR UNEXPECTED INTERUPTS 
47 S ERRRARERAAEAAAAAAAAARAEAEEAEAAAREEERERAEEEEAEEEEEEEREEREREREREAERENEES 
STRAPCATCHER FOR ILLEGAL INTERRUPTS 
THE STANDARD "TRAP CATCHER’ gg S7ptAceD 
BETWEEN ADDRESS 0. 10 AD “ADDRESS 76. 


31T LOOKS LIKE “PC+ 


neeegieEE 
“ 
§ ERRRARAAAAAAARERAAAAAAARAAEEAEREREAARAEEEAEREARERAERERERERAEREAARERERE 























.20 
;STANDARD INTERRUPT VECTORS 
2246 
PFAIL sPOWER FAIL HANDLER 
340 i SERVICE AT LEVEL 7 
HLT TERROR HANDLER 
34 3 SERVICE AT LEVEL 7 
TRPSRV NERAL HANDLER DISPATCH SERVICE 
a 340 “SERVICE AT LEVEL 
: 0 sSAVE FOR ACT-11 OR DDP2 
*RETURN ADDRESS IF UNDER ACT-11 OR DDP2 
0 [SAVE FOR ACT-11 OR DDP2 
= SENDAD “FOR USE WITH ACT-11 OR DOP2 
= 
0 sACT=11 PROGRAM CHARACTERISTICS 
217% 
DISPREG: 0 SOFTWARE DISPLAY REGISTER 
50 000176 000 SUREG: 0 SSOFTWARE SWITCH REGISTER 
= 
504 000200 600137 001510 JMP START 260 TO START OF PROGRAM 
208 001000 .=1000 
508 001000 005377 055103 050104 MTITLE: .ASCIZ <377><12>/CZDPECO /<377>/DUP11 CONFIDENCE TST /<377> 
509 001200 .=1200 
310 sSWR AND LIGHTS 
51 ° 
218 001200 177570 DISPLAY: 177570 311/45 CONSOLE LIGHTS 
514 001202 177570 SWR: 177570 s INDIRECT POINTER TO SWITCH REGISTER 
S16 s INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 
518 ‘ 
51 1204 17 TKCSR: 177 sTEL TYPE KEYBOARD CONTROL REGISTER 
+ ies Irae ie ie Hii 
: b01SI2 177566 TPDBR: 177 TELEPRINTER DATA BUFFER 
> 4 sPROGRAM CONTROL PARAMETERS 


m1 
SEQ 12 
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27 001 RETURN: SCOPE ADDRESS Ae LOOP ON TEST 
8 001 NEXT: SADDRESS CF NEXT TEST TO BE a3) te 
> 1 LOCK: :ADDRESS F FOR ireRat ON CURRENT 
5 1 I COUNT : NUMBER HE THAT CURRENT TEST WILL BE EXECUTED 
531 1 LPCNT: ATIONS COMPLETED 
532 1 TSTNO: ;NUMBER OF EST oN PROGRESS 
er 001 PASCNT: NUMBER OF PASSES COMPLETED 
34 0012 ERRCNT: TOTAL NUMBER OF ERRORS 
535 0012354 LSTERR: 3PC OF LAST ERROR CALL 
oz8 PROGRAM VARIABL VARIABLES 
53 een 
538 
539 


SED RAaY STORAGE 





3RS STORAGE 
ZSTACK POINTER STORAGE 
;PROGRAM COUNTER STORAGE 


RNS SPRSRENSR RGSS 


es Hae Gace © 





STACK POINTER STORAGE 
;PROGRAM COUNTER STORAGE 


REPEAT CTSDLY 


CTS DELAY 

;DELAY FOR DATA LEAD TESTS 
:DUPII*S 4h Bl ag Ry ith $ 
sOCTAL_ NUMBER 








oy 





SSEp] EEUUESTE SELLE 
>. oi” CSOOSCSOSCSCSO COOCOOOOOOOCOSCO 
&® 


esssss ssssssss ssssssgssssss 


ed eed eed ed ed ed ee eed eed ed esd asd od oo aed ed odd od od 


gasees geese 
NO SMO 








SESS PEL ESE s oe sake se 





| 
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569 
sCONTROL REGISTER DEFINITIONS 
S72 “RXCSR BIT DE DEF INIT 1ONS 
100000 DSCA=BITIS sDATA SET CHANGE A 
a7 RING=B1T14 
575 20000 $=B1T13 
57 1 DET=B1T12 
5 000 RECACT=BIT? 
578 002000 =B1T1 
379 001000 179 
ay 300 
a 500040 EE LL se og 
584 $00820 sREC ENABL 
585 000010 sSEC XMIT DATA 
586 000004 *REQ TO SEND 
7 000002 sDATA TERM RDY 
000001 A SET CHANGE 8 
589 XDBUF BIT DEF WT LONS 
590 100000 mxpenn-8i115 
591 04 =BIT14 
59 010000 
59 002000 
594 001000 
595 000400 
596 
597 100000 
598 001000 
599 010000 
oot 1 
ry 000000 
603 
604 1 
605 
OR 
608 0004 
609 XDONE=8 *XMIT DONE 
610 1 TXINTE=81 16 *XMIT DONE INTR ENABLE 
611 SEND=81 14 :SE 
612 1 HDXEN=B1T3 * HDX/FDX 
61 sTXCSR WRD DEFINITIONS 
614 sUSER 
615 Spt : MODE 4 sRAINT T INT MODE 
616 010000 MEXT “MAINT EXT MODE 
6! 000 SYSTST=4 *SYSTEM TEST MODE 
e8 ;TXDBUF BIT DEFINITIONS 
$31 10¢ RCRC7T=81115 
62 ¢ CRC7T=B1T1 
62% TCRCIN=8] 11 
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OGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


TIMER=B1T11 
TABORT=B1T10 


TEOM=B1T 


TSOM=81T8 


ALJMFL: 
DSCFLG: 


INIFLG: 


EVEN 


BYTE 


-BYTE 


QV.FLG: 


BYTE 





0 


sPROGRAM CONTROL FLAGS 


is boll ape TIMER 
; TRANSMIT ABORT 


STRANSMIT END OF MESSAGE 
; TRANSMIT START OF MESSAGE 


sMISC. PROGRAM DEFINITIONS 
biRty: WORD 0, 
NFLG: .BLKB 7 


PROGRAM INITIALIZATION FLAG 

3ERROR OCCUR LA 
LOCK ON CURRENT TEST FLAG 

; QUICK VERIFY FLAG. 

30N FIRST PASS OF EACH DUP11 ITERATIONS 
sWILL BE SUPPRESSED 





SEQ 14 
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001356 0026 


001360 
001362 
001364 
001366 
001370 
901372 
001374 
001376 
001400 


C 


¢? 20-JUL-83 13:32 PAGE 23 
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OGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


DEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN 
:IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


§ ERRRARARAAAERAEEAAAAAAAEAEAAAAAAAEARERAEAEREREAEAEREEAAEAARERERAEEEEE 











. (RPTAB: 

SCOPE=TRAP+0 sCALL 

SCOPI=TRAPSI ' CALL 

TYPE=TRAP+ CALL 

INSTR=TRAP+3 CALL 
INSTR 

INSTER=TRAP +4 CALL 
-INSTER 

PARAM=TRAP + CALL 

SAVOS=TRAP+6 CALL 
,SAVO 

RESOS=TRAP+ ; CALL 

CONVRT=TRAP +10 CALL 

CNVRT=TRAB #11 CALL 

SETFLG=TRAP+12 CALL 
.SETFLG 











TO SCOPE LOOP AND ITERATION HANDLER 
TO LOOP ON CURRENT DATA HANDLER 

TO TELETYPE OUTPUT ROUTINE 

TO ASCII STRING INPUT ROUTINE 

TO INPUT ERROR HANDLER 

TO NUMERICAL DATA INPUT ROUTINE 

TO REGISTER SAVE ROUTINE 

TO REGISTER RESTORE ROUTINE 

TO DATA OUTPUT ROUTINE 

TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
TO TELETYPE INPUT ROUTINE 


’ 
£ ERRAAARAAARARARERARARAEEAEAAAAAEAEREAEAERERERAAAAAAAAAAARAAERAEAEA ARE 


SEQ 15 


29 SEQ 16 
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;DUP11 VECTOR AND REGISTER INDIRECT POINTERS 



















690 sPOINTER TO DUP11 RECEIVER INTERRUPT VECTOR 
691 s POINTER TO DUP11 RECEIVER INTERRUPT SERVICE PS 
69 ;POINTER TO DUP11 Las ots BAL INT T 





ERRUP 
TRANSMITTER INTERRUPT SERVICE PS 
RECEIVER STATUS REGISTER 
acSeavee Ae) FE 
P TUS REGISTER 


ARAME TE 
TRANSAITTE rgTATus REGISTER 


TRANSMITTER 

TO DUPT1 SEC Y REGISTER SELECT REGISTER 
NTER TO P PARAMETER. STATUS H HIGH BYTE 

POINT ER TO RECEIVER BUFFER HIGH BYTE 

;POINTER TO RECEIVER CONTROL REG HIGH BYTE 

;POINTER TO TRANSMITTER BUFFER HIGH BYTE 
SPOINTER TO TRANSMITTER CONTROL REG HIGH BYTE 


69 
695 
69 


o 








i 
1 
1 
i 
3 
1 


SSSSP 


S8888S88S38Ssssss 













ee ee ed ed ce ced eed ed ed ao = ad od 


EERESRORELOSESE 





;DUP11 CONTROL INDICATORS FOR CURRENT DUP11 UNDER TEST 


001440 000 MASK.A: .BYTE 000 sLAST CHAR TO TEST AND PARITY MASK 
010 CLK.A: .BYTE 8. NUMBER OF CLOCKS NEEDED FOR ONE CHAR 
001442 000000 100.00: 090000 3 PARAMETERS 


;DUP11 STATUS TABLE AND ADDRESS ASSIGNMENTS 





001500 
001500 
Sl ens 000001 ; CONTROL STATS REGISTER FOR 11 NUMBER 0 
001 000001 ;VECTOR “‘A’’ FOR DUP11 NUMBER 
001504 000001 ; PARAMETER FOR DUPTT NUMBER 
001506 00000C 


UPPRIIIS Sess Fass Selsssacssse 
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a SEQ 17 
CZDPE MACY11 Spe epewA~65 13:32 PAGE 25 
CZDPEC.P11 19-JUL-85 17: PROGRAM INITIALIZATION AND START UP. 


s;PROGRAM_ INITIALIZATION 
sLOCK OUT INTERRUPTS 
;SET UP PROCESSOR STACK 
UP POWER FAIL VECTOR 
; CLEAR CONTROL FLAGS AND COUNTS 
TYPE TITLE MESSAGE 
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BSRESSSENSIN. 


175500 


as 
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sHIGH LIMIT 

sSTORE AT THIS LOCATION 

7 MASK 

sHOW MANY TIMES + 2 

ty 4 MESSAGE & GET INPUT STRING 
sCONVERT STRING 








001510 012737 177776 START: #340,PS sLOCK OUT INTERRUPTS 
1516 4 #STACK,SP sSET UP STACK 
0015 1 000024 #.PFAIL,a#246 *SET UP POWER FAIL VECTOR 
001530 005037 PASCNT *CLEAR PASS COUNT 
15 1050 ? ERRFLG “CLEAR ERROR FLAG 
1540 105037 QV.FLG *ZERO QUICK VERIFY FLAG 
1544 105037 DUPNUM 
001550 105037 
001554 105037 
48 001560 005037 sCLEAR ERROR COUNT 
001564 5037 CLR LST *CLEAR LAST ERROR POINTER 
750 0015 1 1 001226 MOV #1, TSTNO “SET UP FOR TEST 1 
1 001576 012737 0 00121 MOV #. START, RETURN [SET UP FOR POWER FAIL BEFORE 
STESTING STARTS 
753 001604 013746 MOV SSAVE CURRENT VECTORS 
754 001610 01 246 MOV : 
755 001614 1 03? 000004 MOV “SETUP FOR TIMEOUT 
036 lege TST SREFERENCE HARDWARE SWITCH REG 
757 (001 000407 BR *BR IF IT EXISTS 
758 001630 01 001202 128: MOV sPOINT TO SOFT SWR 
759 001656 1 MOV *POINT TO SOFT DISPLAY REG 
760 001644 CMP SADJUST STAC 
761 001646 13$: MOV *RESTORE VECTORS 
roe 165 MOV 
76 1e38 11$: TST : 
764 1 11 BNE 3 
765 1664 1 TYPE ; 
766 1670 1 ts TSTB ; 
76 1674 1 : 
768 00170 0001 3 
a 001 1 sCLR MAP 
771 1706 + 
re 171 RO #DUP. END sDONE WITH MAP? 
1714 001374 i "BR IF NO 
77% 001 3037 MOMFL 
775 (001 105037 AL JMF L 
076 001 104403 sOUTPUT MESSAGE & GET INPUT STRING 
SOIT $0660 iro 
778 5 * CONVERT STRING 
:LOW LIM! 
780 
re 
785 
786 
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(1052) JUL-83 13:32 PAGE 26 
8 17509 ~ PROGRAM INITIALIZATION AND START UP. 


UL-8 





001 BYTE 
1 BYTE 
104403 
004741 
10441 
10878 
105 001342 
70508? 001324 
Oe 7 oor eee 
71$: 
10440 
00511 
10441 
BNE 
INS 
SE 
OPC 
INS 
MST 
SET 
ST 
70$: 
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~ 
al 
rT 
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$3 


3> 
tT 
ro 
Se Ge Ge Ge Ge Ge @ 





F 2 


sLOW LIMIT 

sHIGH LIMIT 

sSTORE AT THIS LOCATION 
; MASK 


“HOW MANY TIMES + 2 

OUTPUT MESSAGE © GET INPUT STRING 
SSET FLAG BASED UPON INPUT STRING 
“THIS FLAG 

MDMFLG sMODEM FLAG SET? 


71$ sIF BR. 
big tg 







:OUTPUT MESSAGE & GET INPUT STRING 
[SET FLAG BASED UPON INPUT STRING 
-THIS FLAG 

it 

sOUTPUT MESSAGE & GET INPUT STRING 


3 MESSAGE 
sSET FLAG BASED UPON INPUT STRING 
ae 








ey, eee & GET INPUT STRING 


iSET FLAG. BASED UPON INPUT STRING 
OUTPUT MESSAGE & GET INPUT STRING 


T ee UPON INPUT STRING 
T MESSAGE & GET INPUT STRING 
FFAG BASED UPON INPUT STRING 
TPUT MESSAGE & GET INPUT STRING 


T FLAG BASED UPON INPUT STRING 
FLAG 







SE 
TH 
OU 
ME 
SE 


TH 









LET'S GO. 
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RES FERTESE 
SSSeeeceeceeccT 
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17509 





“83 13:32 


5$: 


BEGIN: 


1$: 


MOV 
INCB 
MOV 


PAGE 27 
PROGRAM INITIALIZATION AND START UP. 


gt FOLLOWING PARAMETERS ARE LOADED IF UNDER ACT11 OR XXDP CONTROL.** 

















TEMP? OPCLRJ 
MDMFLG 


XHEAD 
#DUP.MAP, TEMP 
aTEMP1, TEMP2 
BEGIN 








ile 


#340,PS 
aSTACK. SP 


BRW,TTST 
BRX.TTST+ 
acveLe »RE 
@RE TURN 









i o@SuRr 


west TTST 
#NOP, TTST+2 


2 


TEST START AND RESTART 


Device 


‘vec TOR 


POINTER 


ACTIVE FOR TESTING 


3STATUS AND SYNC 


sPRIORTY 


; TURN-AROUND= 
ZOPTIONAL CLEAR 

FLAG 
STYPE HEADER 
ser POINTER 












CONNECTER FLAG 
JUMPER 





DATA 
SALL DONE WITH DATA 


UPDATE POINTER 










T UP STAC 











LOCK 








P 
SLOCK 











YPE 
SSTART TESTING 


+t e OUT INTERRUPTS 
‘an = os MONITOR CONTROL 
ion = LOCK ON TEST 
LOCK SELECTED. 
th T SCOPE ROUT 
SET UP TO LOCK 
; CONTINUE 


RE NORMAL $ OPE ROUT! 
3START wt 1 FELECTED ae wnicn roR ve cE to” fest _ 












SEQ 19 





H 2 











SEQ 20 

CZDPE MACY11 30A(1052) 20-JUL-83 13:32 PAGE 28 
CZDPEC.P11  19-JUL-83 17:09 END OF PASS ROUTINE 

874 sEND OF PAS 

875 ‘TYPE NAME OF TEST 

87 “UPDATE PASS COUNT 

87 SCHECK FOR EXIT TO ACT-11 

878 “RESTART TEST 

880 002352 005037 001234 .EOP: CLR LSTERR sCLEAR LAST ERROR PC 

881 002356 105037 001351 CLRB  — ERRFLG “CLEAR ERROR FLAG 

882 005237 001230 INC PASCNT “UPDATE PASS COUNT 

883 366 013777 001 176604 MOV PASCNT,@DISPLAY :DISPLAY PASS COUNT 

884 002374 104402 004373 TYPE  ,MEPASS sTYPE END PASS 

885 002400 104402 004555 TYPE ,MCSRX sTYPE ¢ 

REG 404 104411 002510 CNVRT ,XCSR “SHOW IT 

887 002410 104402 00456 TYPE ,MVECX sTYPE VECTOR 

002414 104411 002516 CNVRT  <XVEC : T 

889 002420 104402 004571 PE  .MPASSX ‘TYPE PASSES 

890 002424 104411 002524 CNVRT  ,XPASS *SHOW IT 

891 002430 104402 004602 : sTYPE ERRORS 

892 002434 104411 002532 : IT 

893 002440 112737 000377 001353 “SET THE QUICK VERIFY FLAG. 

894 002446 113737 001317 001320 UPNUM.SAVNUM  ;:RESTORE THE COUNT 

895 002454 013701 000042 av42,Ri “CHECK FOR ACT-11 OR DDP 

896 002460 001406 RESTART “IF NOT, CONTINUE TESTING 

897 002462 000005 *STOP THE SHOW=--CLEAR THE WORLD 

898 002464 SENDAD: 

899 002 004711 JSR PC, (R1) 

900 002466 000240 NOP 

901 002470 000240 NOP 

902 002472 000240 NOP 

903 002474 000240 NOP 

904 002476 012737 005624 001214 RESTRT: MOV #CYCLE ,RETURN 

905 002 000137 005624 JMP CYCLE 

906 002510 1 XCSR: 1 

907 002512 006 002 .BYTE 6,2 

908 002514 001412 RXCSR 

909 002516 000001 XVEC: 1 

910 002520 003 002 .BYTE 3,2 

911 002522 001402 DUPRVC 

2 002524 000001 XPASS: 1 

913 002526 006 002 .BYTE 6,2 

914 002530 001230 PASCNT 

915 002532 000001 KERR: 1 

916 002534 006 002 .BYTE 6,2 

917 002536 001232 ERRCNT 

919 sSCOPE LOOP AND INTERATION HANDLER 

921 002540 005037 001234 .SCOPE: CLR LSTERR :CLEAR abs! ERROR PC 

922 002544 01001 MOV RO, (SP) sSAVE RO ON STACK 

923 002546 032 040000 176426 BIT #B1T14,aSWR sLOOP ON TEST? 

924 002554 001407 TTST: BEQ 1$ “BR IF NO (IF LOCK SWO1 = 1;THIS LOCATION = 240) 

925 002556 7 &§ 760 TO 3$ (DITTO) 

926 002560 105777 176420 TSTB QIKCSR 

927 002564 HIT A KEY ON TTY TO GO TO NEXT TEST) 


100034 
928 002 037706 176414 MOV SIXBOR AG 
929 00041 BR $ 


eos SEQ 21 
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BESsss NS 
Sesselese 
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RE=SS 
~Nw 
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RO 


2k 
VN 
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ive] 
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te 
o 
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000002 


909789 
176132 
1761 
ish 
00001 
176132 
176122 


176400 


001222 


000002 
176242 


3 
S 


176124 


1$: 


2s: 


3$: 


INSTR: 


1$: 








INSTI: 
MSG: 


BIT #SW11,aSWR sDELETE ITERATION (QUICK PASS)? 
BNE *BR IF YES 
TSTB QV.FLG HAS FIRST PASS atte COMPLETED? 
BEQ & “BR IF QUICK VER 
INC LPCNT sUPDATE TTERATION. COUNTER 

PCNT, ICOUNT sALL ITERATIONS 

. 3 sBR IF NOT YET 

aa sPREPARE FOR NEW TEST 

: Any “START ICOUNT AT ZERO 

rite ICOUNT sRESET ITERATIONS 

NEXT 


ae sGET NEX 
sPOP RO OFF STACK 


@RETURN °60 DO THE TEST 


42 
sTELETYPE OUTPUT ROUTINE 





















MOV RS,-(SP) sSAVE RS ON THE STACK. 
MOV ac(sP) RS *GET ADDRESS OF MESSAGE. 
ADD #2,2(SP) :POP OVER ADDRESS. 

BIT #SW12,aSWR : INHIBIT ALL PRINT OUT?? 
BNE ae, “BR IF NO PRINT OUT WANTED (Su12=1) 
TSTB = (RS) [1S NUMBER MINUS? (MSB=1(BIT7 
BPL 2$ :BR IF NUMBER IS PLUS 
TYPE  ,MCRLF i TYPE A CR/LF! 

Tsé aTPCSR sTTY READY Y? 

MOVB  (RS)+,@TPDBR :PRINT CURRENT CHAR. 

BNE 1$ *IF NOT ZERO KEEP PRINTING! 
MOV (SP)+,R5 SEND OF OUTPUT. RESTORE RS 
RTI °GO HOME 

MOV R3,-(SP) sSAVE R3 ON STACK 

MOV R4.-(SP) *SAVE R4 ON STACK 

MOV a4(SP),.MSG 

ADD #2,4(SP) 

TYPE 

MOV 8 oR4 

mov OP RS. 

TSTB aTKkCSR 

BPL 1$ 

MOVB  aTKDBR, (R4) 

BICB #200, ¢R4) 

CMPB «(RG 4,415 

BEQ INSTR2 

TSTB TPCSR 

BPL 

MOV @TKDBR, aTPDBR 

DEC R3 

BNE 1$ 

MOV (SP)+,R4 


wis SEQ 22 
CZDPE MACY11 rhe 20-JUL-83 13:32 PAGE 30 
CZDPEC.P11 19=JUL=85 17:09 END OF PASS ROUTINE 





















986 003074 012603 MOV (sP)¢ R3 

987 003076 010346 .INSTE: MOV R3,-(SP) 

988 003100 01044 MOV R4.=(SP) 

989 003102 104402 004346 TYPE ,MOM 

990 003106 000741 BR ~ INSTI 

991 003110 012604 INSTR2: MOV (SP)+,R4 sRESTORE R4 
992 003112 012603 MOV (SP)+,R3 SRESTORE R3 
995 003114 000002 RTI 

995 sCONVERT ASCII STRING TO OCTAL 
997 

998 003116 010546 RS,-(SP) 

999 003120 010446 4; =(SP) 

1000 003122 016605 000004 RS 

1001 003126 012537 003306 (R5)+,LOLIM 

1002 003132 012537 003310 (R5)+,HILIM 

1003 003136 012537 003312 (R5)+,DEVADR 

1004 003142 112537 003314 (R5)+,LOBITS 

1005 3146 112537 003315 (R5) +. ADRCNT 

1006 003152 010566 000004 MOV R5,4(SP) 

1007 003156 005005 PARAM1: RS 

1008 003160 012704 005560 MO #INBUF .R 

1009 003164 122714 5 #15, (RS) 

1010 003170 001420 PARERR 

1011 003172 121427 000060 1$: (R4) .#60 

1012 003176 002415 PARERR 

1013 003200 121427 000067 (R4) #67 

1014 003204 003012 PARERR 

1015 142714 000060 #60, (R46) 

1016 003212 152405 (R4S+,R5 

1017 003214 122714 000015 #15, (R4) 

1018 003220 001406 LIMITS 

1019 003222 006305 R 

1020 003224 305 R5 

1021 003226 305 R5 

1022 003230 0007 BR 1$ 

1023 003232 1044 PARERR: INSTER 

100 002234 000750 BR PARAM1 

1006 sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
1058 , 

1029 020537 003310 LIMITS: CMP RS,HILIM 

1030 1013 3 BHI ARERR 

1031 020537 003306 CMP RS,LOLIM 

1032 103 BLO 

103 133705 003314 BITB LOBITS.RS 

1034 56 001365 BNE PARERR 

1056 sSTORE NUMBER AT SPECIFIED ADDRESS 
1038 13704 003312 MOV DEVADR,R4 

1935 o8ae4 G10s36 1s: ROY RB ness 

1041 803575 1 333 AE DECB ADRCNT 
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END OF PASS ROUTINE 


19-JUL=8 
poste 
12604 
605 


000008 


aa 
at 
at 
ay 


SgEEres 


“J 
Se 


17:09 








BNE 
MOV 
MOV 
RTI 


LOBITS: 0 
ADRCNT=LOB1TS+1 
sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPR 


ga98 
o oo 







RzegRa 
me @ 








1$ 
(SP)+,R4 
(SP)+,R5 





(SP)+,R 
(SP)+,R 
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SEQ 25 


































SEQ 24 
CZDPE MACY11 30A(1052) 20-JUL-83 13:32 PAGE 32 
CZDPEC.P11. 1 ope 17:09 END OF PASS ROUTINE 
1 10 01 MOV (SP)+,RO 
1098. SoSeI> 00002 RY 
1100 00 14 WRDCNT: 
Ha SENT cacao 
1108 003620 $00800 BINWRD: 0 
110 COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
110 “BUFFER TO THE CHARACTERS 'W'’ AND "'Y'’. 
1108 SIF THE CHARACTER IS 'W'’ CLEAR THE FLA 
1109 SIF THE CHARACTER IS “‘Y’’ SET THE FLAG 
Wi12 go8e36 4nr3? oosseg et Ot MaUF 
1118 00565 129737 116 005560 #°N. INBUF s1S IT 'N’ ? 
1115 00 oso s (RS)  —- :000 
Hi 003650 129737 000131 005560 1$: #°¥, INBUF s1S 17 “Y¥"' ? 
111 3660 112715 177777 #-1, (RS) 3377 
u 3 716 000002 28: #2, (SP) 
11 1044 3$: sRETRY 
1 boorss BR "SETFLG 
i s TRAP DISPATCH SERVICE 
17 SARGUMENT OF TRAP IS EXTRACTED 
11 SAND USED AS OFFSET TO OBTAIN POINTER 
1 :TO SELECTED SUBROUTINE 
11 11 MOV (SP) ,-(SP) 
11 ° 8 SUB (SP) 
11 17616 MOV a(SP), (SP) 
11 316 TRPOK: ASL (SP) 
11 16 #177001, (SP) ; 
1 01 oie g TRPTAR (SP) * SUBROU TINE ADDRESS 
1 000136 a(SP)+ *G0 TO SUBROUTINE 
1 sERROR HANDLER 
HE 
1103 3730 032777 010000 175244 .HLT: #Sw12,aSuR ;BELL ON ERROR? 
1144 3736 001406 “BR IF NO BELL 
1145 003740 105 175264 aTPCsR STTY READY 
1166 Sere ie —— «A A A ad 
4 ; 
114 756 72 890000 178530 XBX: #Su13,aSwR sDELET 
1150 03 7 16 001234 (SP) .LSTERR WAS THLs ERROR FOUND LAST TIME? 
115 772 011637 001 (SP) .LSTERR ; 
1183 bore 050 7 oot get ERRFLG ; 
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Ssss 
Es 
233 
Bux 


001351 
46 


002464 000042 


$00%00 174742 


002000 174732 
1436 001214 


m2 


32. PAGE 33 

END OF PASS ROUTINE 

1$: SAV05 sSAVE ALL oe REGISTERS 
MOV sGET THE P R 

sGET ADDRESS OF TRAP CALL 

3GET HLT SY tap RUCTION 





sBR 
DOES DATA TABLE EXIST? 
sBR IF YES. 





GIVE R/LF 
pa Bag ne UNLESS NO DATA TABLE. 





AN ERROR MESSAGE? 





:DATA HEADER? 
BR IF NO 





DATA HEADER 
SDATA TABLE? 
BR IF NO. 































; DAT TABLE 
RESREG: RESOS RESTORE PROC REGISTERS 
HALTS: CMP #SENDAD 2042 SIF ACT=11 AUTO MODE=-HALT! ! 
aswR sHALT ON ERROR? 
= EXITER 26R IFN NO HALT ON ERROR 
2(SP) RO : SHOW ERROR PC IN DATA LIGHTS 
EXITER: i ik. ERROR COUNT 
*G0TO TOP OF rest? 
SBR IF Y 
0, aSwR :G0T0 NEXT TEST? 
NEXT RETURN >SET FOR NEXT TEST 
1$: OSTACR SP sRESET SP 





SEQ 25 


SEQ 26 

CZDPE MACY11 a 20-JUL-83 13:32 PAGE 34 
CZDPEC.P11 19=JUL-835 17:09 END OF PASS ROUTINE 

1210 004264 000177 174724 JMP @RE TURN GOTO SPECIFIED TEST 

1211 004270 000002 2$: RTI ;RETURN 

isté 004272 000001 ERTABO: 1 

12135 004274 006 002 BYTE 6,2 

1214 004276 001266 SAVPC 

1215 004 000001 XTSTN: 1 

1216 004302 003 002 BYTE 3,2 

itt 004304 001226 TSTNO 
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000024 
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uu 


042525 
051522 
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000103 


32 PAGE 35 


END OF PASS ROUTINE 


sWAIT ROUTINE 
SMALL: NOP 
RTS 


PC 


sPOWER FAIL ROUTINE 


oPFAIL: MOV 
HALT 

RESET 

MOV 


MOV 
TYPE 
MPOWER 


MEPASS: .ASCIZ 


C 


fone ten 
mr 


Dee 
aes 
= 

ses «e 
Pe od 
On 
“ 


MERRS: .ASCIZ 


MTSTPC: .ASCIZ 


MLOCK: .ASCIZ 
MCSRX: .ASCIZ 
MVECX: .ASCIZ 
MPASSX: .ASCIZ 
MERRX: .ASCIZ 
MTSTN: .ASCIZ 
MASTEK: .ASCI 

MNEW:  .ASCI 


#PWRUP ,24 


#STACK,SP 
#.PFAIL,24 


@RE TURN 
?/ 


* STALL 7 
“RETURN : 


LOAD PFAIL VECTOR FOR POWER UP 


“WAIT TTY TO COME UP 
*REINIT STACK POINTER 
“LOAD PFAIL VECTOR FOR POWER DOWN 


<15><12> 
<377>/PWR FAILED. / 


<15><377>/END PASS CZDPEC / 


<377>/R/ 
<377>/PROGRAM INDICATES NO DEVICES PRESENT./ 


<377>/ INSUFFICIENT DATA!/ 


<377>/TEST PC-/ 


<377>/LOCK ON SELECTED TEST/ 


/CSR: / 
/VEC: / 
/PASSES: / 
ERRORS: / 


/TEST NO: / 


/*/ 
<377>/SET SWITCH REG TO DUP11°S DESIRED ACTIVE./ 


SEQ 27 


SEQ 28 
(1052) _20-JUL-83 13:32 PAGE 36 
SPOPEC.PIA  19-duL-8 17:09 END OF PASS ROUTINE 


j 3505 05204 
157 20N17 Os2s0e O805e0 
iy Weise fees StlSs eit 
1379 oH 044524 042526 
15 : eASCIZ /PC: / 
1582 ae, Oi3e 020103 MCSR: “ASCII C39 7>/REC CSR ADRS / 
1583 951803 0201 042101 
1585 535399 041505 040440 MVEC: .ASCIZ <377>/VEC ADRS / 
1587 0817 SSE ou04ed MMODEM: .ASCIZ <377>/IS A MODEM WITH ANALOG LOOPBACK ENABLED CONNECTED? (Y OR N 
117 04650 
1989 Oss440 58111 G20TI0 
1991 266060 E7517 O4i2 
1592 041501 020113 ba7105 
1996 e750 47116 41905 
1595 042524 037504 024040 
1296 020131 051117 047040 
1598 00077 os1si) 052040 MJMPR: .ASCIZ <377>/IS THE OPTIONAL CLR JMPR IN? (Y OR N) 
1299 042510 047440 052120 
7511 040516 020114 
1301 046103 020122 046512 
1302 051120 044440 037516 
1305 0 054450 047440 
1304 020122 024516 020040 
1308 aa 020123 044124 MTCN: .ASCIZ <377>/I1S THE H325 CONNECTOR ON? (Y OR ND / 
31510 032462 
1308 1440 iy 04251 
1309 052103 051117 O30%3 
1310 03751 24040 020131 
1311 051117 047040 020051 
1318 3 051190 047511 MPAR: .ASCIZ <377>/PRIORITY (4 TO 7) / 
1314 944899 sett 024040 
1315 020064 047524 053440 
1319 0007? 04 8 020103 MSTJM: .ASCIZ <377>/SEC TX JMPR IN? (Y OR N) / 
1318 o3815 Reeued 050115 
1320 954450 ers 020122 
1393 6 1779 1505 051040 MSRJM: .ASCIZ <377>/SEC RX JMPR IN? (Y OR N) / 
1 § sade S26 051120 
1394 4440 os 318 be shat 
1352 osonay 5111 704 
1397 77 a8 ent XHEAD: .ASCIZ <377>/MAP OF DUP11 STATUS/<377> 
1398 si17 Q4o040 050195 
1 030461 51440 040524 
1330 052524 17752 000 
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php 20-JUL-83 13: 
19-JUL-83 17:09 
77 051101 020105 
0463 4 020105 th 
eet } S 0124 
5251 50115 1105 
evle 6101 srii8 
111 020077 4450 
7440 020122 024516 
02004 
37 511 020103 
051504 020103 020061 
047101 020104 seen, 
047502 044124 04444 
037316 sesiee aH. 
05111 7040 020051 
000040 
000002 
006 003 
001236 
002 
001240 
000000 
005516 
000000 
005560 
000000 
005622 
000001 


32. PAGE 37 


END OF PASS ROUTINE 


MALLUM: .ASCIZ <377>/ARE THE DEFAULT JUMPERS ALL IN? (Y OR ND / 


MDSC: .ASCIZ <377>/ARE DSC 1 AND 2 BOTH IN? (Y OR N) / 


~EVEN 
XSTATQ: 2 


orTé 
TEMP1 
BYTE 
TEMP2 
EVEN 
TEMP: 0 
=. +40 
MDATA: 0 
-=.+40 
NBUF: 0 
=.+40 


TRP.PC: .BLKW 1 


6,3 
6.2 


SEQ 29 
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END OF PASS ROUTINE 


CYCLE: 


1$: 





SEQ 30 


S ROUTINE USED TO A aes UP TO EIGHT DUP11°S 






;THIS ROUTINE SETS UP T 






TROL ADDRESS FOR THE DIAGNOSTIC 
NE *MUST* 


C 
DUP11°S. THIS ROUTI 


SP 
7BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 








SAND RUNS THE SPECIFIED 
SE TUP NECESSARY. 
1STB DUPACTY 
TYPE ,MERR2 
.-2 
aoup. »RO 
(RO)+,RXCSR 
(RO) +, DUPRVC 
(R0)s ;L00.00 
RXCSR HUPRCR 
HUPRCR , RXDBUF 
RXDBUF 
RXDBUF , DUPSEC 
RXDBUF .PARCSR 
MOV RXDBUF , HUPRBF 
MOV HUPRBF , HUPPSR 
MOV HUPPSR. TKCSR 
MOV TXCSR,HUPTCR 
MOV HUPTCR, TXDBUF 
INC TXDBUF 
MOV TXDBUF , HUPTBF 
INC HUP TBF 
MOV vc, DUPRPS 
ADD RO, DUPA 
MOV ee DUPTVE 
ADD R DUP 
MOV DUPTVC ,DUPTPS 


ADD RO,DUPTPS 








MOV #L00.00,R0 
MOV #MASK.A,R1 
MOV #CLK.A,R 
JSR PC FIX. 
TST ance 

BNE 4$ 

BIT #Sw01 ,aSwR 
BEQ 4$ 

TYPE 

INSTR 


MTISTIN ;MESSA 


sARE ANY DUP11°S TO BE TESTED? 

sBR IF OK. 

sNO DUP11°S SELECTED!! 

STOP THE SHOW. 

sDISQUALIFY CONT. SW. 

SRESTORE POINTER. 

3LOAD SYSTEM CTRL. REG 
VECTOR 





HIS WA 
T CONTROL REG NIGH BYTE 
igh RX CONTROL REG BUFFER 
GOT SECONDARY REG SELECT REG 
;GOT PARAMETER STATUS REGISTER 
3GET 7 BUFFER HIGH BYTE 


GOT PAR STATUS REG HIGH BYTE 
7GET TX CONTROL REGISTER 


IT 

TX CONTROL REG HIGH BYTE 
T Ht BUFFER 

3GET H BUFFER HIGH BYTE 

3RX VECTOR 

RX PRIORITY LEVEL 

3TX VECTOR 

3TX PRIORITY LEVEL 

sLOAD STAUS 00-00 
sPREPARE MASK. 

: PREPARE CLOCKS 

60 AND CALCULATE CONFIGURATION. 


s1F SWO1=1,GET STARTING TEST # 


oMCRLF 
= + i a & GET INPUT STRING 


CZDPE s he . ais 13:32 PAGE 39 


ZDPEC.P11 


006122 
006124 


JUL-8 
Miers t 


012737 
000177 


011005 
000207 


364 
012737 
001226 
001226 
001214 
004352 
004416 
010036 
004346 


006364 
172760 


000002 


001214 


END OF PASS ROUTINE 


5$: 


6$: 


BYTE 
YTE 


PARAM 








sCONVERT STRING 
3L IMIT 


L 
sHIGH LIMIT 


3 STORE AT THIS LOCATION 
HOW MANY TIMES + 2 


#TST1,RO 
a aySo. (RO) 


TSTNO,2(RO) 

#TSTNO,4(RO) 

RO,RETURN 
RLF 


(RO) + 

RO, #TLAST+*10 
ho 

7$ 
#TST1,RETURN 
@RETURN 


(RO) ,RS 
PC 


sSAVE PC 


sPREPARE RETURN ADDRESS 
:GO START TESTING. 


;GET PARAMETERS. 


SEQ 31 


SEQ 32 
CZDPE MACY11 ZOACOR@) Batis 13:32 PAGE 40 
ZDPEC.P11 19-JUL=8 END OF PASS ROUTINE 









































1446 s THIS ROUTINE PICKS UP THE ADDRESS OF 

144 *THE JUMPER TABLE AND LOADS RS WITH 

1448 “THE CORRECT DATA BASED ON THE STATE 

1449 OF THE JUMPER AND CONNECTOR FLAGS. 

1451 , 

145¢ 006240 012 00 JUMPER: MOV (R1)+,R sGET THE TABLE ADDRESS 

1453 006242 105737 001324 TST® ~—s TC'NFL fe 3TEST THE TURN AROUND CONNECTOR FLAG 
1454 006246 001 06 BEQ CH IF CONNECTOR 1S MISSING 
1455 006250 105737 001325 TST8  OPCLRJ STEST CLEAR JMPER FLAG 

1456 006254 001 ANCH IF JMPER 1S MISSING 
1457 006256 011005 (RO) RS “MOVE THE DATA TO RS, BOTH JUMPER 
1458 *AND CONNECTOR ARE THERE 

1459 000137 006304 5% 

1460 006264 022020 (RO)+, (RO)+ sPOP POINTER 

1461 006266 105737 001325 CLRJ “TEST CLEAR JMPER FLAG 

1462 006272 0014 SBRANCH IF MISSING 

1463 006274 011005 (RO) RS “MOVE DATA= JUMPER IN, CONNECTOR OFF 
1464 006276 006304 

1465 006302 012005 (RO) +,R5 :NO CONNECTOR OR JUMPER 

1466 006304 R1 sRETURN 

1468 006 012100 (R1)+,R0 :GET THE POINTER ADDRESS 

1469 006310 105737 001324 TCNFLG “CHECK FOR TURNAROUND CONNECTOR 
1470 006314 001403 “BR IF MISSING 

471 006316 011005 (RO) RS “MOVE THE INFO TO RS 

1472 320 137 006330 : CK 

1473 006324 022020 4$: (RO)+, (RO)+ *POP POINTER 

1474 006326 011005 MOV (RO) RS “LOAD DATA TO RS 

1475 006330 000201 6$: RTS *RETUN 

1477 

1478 sROUTINE TO SET UP INTERRUPT VECTORS 

1479 006332 012577 173044 SETVEC: MOV (R5) + .@DUPRY vc 

1480 006336 012577 173044 MOV (R5)+,aDUPTVC 

1481 006344 112577 173036 MOVB = (R5) +, @DUPRPS 

1482 006346 112577 173036 MOVB = (R5) +. ADUPTPS 

1483 006352 000205 RTS R5 

1484 006354 NO. ATRAP: 

1485 006354 104001 HLT 1 

1686 006356 000002 RTI 

1488 006360 NO.BTRAP: 

1489 006360 104002 HLT 2 

1490 006362 000002 RTI 




































SEQ 33 
CZDPE MACY11 (1052) 20-JUL-83 13:32 PAGE 41 
CZDPEC.P11 19=JUL-83 17:09 END OF PASS ROUTINE 
149 
149 seeeeeeeerereaeeereeeeeeeee TEST 1 eeeeeereerareraaereeeeeeres 
1494 =e THIS TEST tt THE INTERACTION OF DTR!RTS!STD 
1495 WITH RING, DSR,CTS,CARDET, 
1496 : SAND DATA SET CHANGE ONE A SET CHANGE TWwO. 
1497 :* T THE BIT AND VERIFY THE OTHER BITS ARE SET. CLEAR 
1498 : THE BIT AND VERIFY CLEAR. REPEAT FOR MRESET. 
139 Peerrerrrwerorrrrererrrrrrrrererr rrr errrrrriti ttt Titi i iii iii i 
1 
1501 sr ekeeeeeeeere 
1502 ; * 
1503 ; TEST 1 
1504 ; 
1505 33 eeeeeeeeetee 
1506 © RERAAAAAAAAAAAERAAARAEEEEEREERAEAEAAERAAEEEREREAEEAEEREEEAREAEREREEEEE 
1507 006364 012737 000001 001226 fsT1: 
1508 006372 012737 tee: 001216 
1509 006400 0127 3 SAVE 
1510 006404 012746 173001 
1511 006410 oiste 001016 
13t¢ 006414 01 es 000000 
1513 006420 105737 001324 34325 TEST CONNECTOR ON? 
1514 006424 001532 s1F NO, SKIP TEST. 
1515 pees 105737 001344 100$: 
ate 0064 sph 
1517 006434 012701 002010 MOV 
1518 006440 105737 001336 TST8 
1519 006444 001007 BNE 
1520 gpetes 0137 006734 BIC 
1521 00645 0137 006736 BIC 
13$¢ 006456 0137 006740 BIC 
1523 006462 11 BR 
1524 006464 105737 001340 101$: TSTB 
1383 sets Bearge sf 
1359 006476 bc0137 BIC 
1528 ppee0e ps BRA 006740 BIC 
1529 398 105737 001346 102$: TSTB 
1530 00651 sid hiss BNE 
1531 006514 005337 006734 DEC 7$ 
15 006520 seep ta 006736 DEC 7$+2 
153 O06 36, 004137 006306 12$: yak R1,OJUMPER ;THIS optic sires y IF TURNAROUND CONNECTOR 
1534 0065 006734 sAND OP ae thes US 
1535 * AND LOADS (EXPECTED) ACCORDINGLY. 
1536 006532 5077 172654 CLR @RXCSR 
1537 536 052777 00 172654 BIS #MRESET,@TXCSR ;RESET THE DEVICE 
1538 544 737 JSR P sWAIT FOR RESET TO FINISH 
1539 550 O33 00141 MOV sLOAD THE RECEIVER CONTROL REGISTER TO R3. 
1540 554 05 10000 172636 BIS #MEXT ,@TXCSR ENTER EXTERNAL MAINT. MODE 
1541 006562 5 713 uf 1$: BIS moiniare t$1D, (R35 ; TURN ON. DIR:RTS!STD 
1348 74 +9 175620 66$: BIT #TIMER,@TXDBUF ;CHECK THE TIMER Bit - 
1544 ib Le BNE *BR IF SET 
1545 32777 004000 172610 67%: BIT 1 aa allamtaael ‘CHECK THE BIT 
HF 9 1774 BEQ “BR IF CLEAR 
154 005327 DEC (PC)+ :DECREMENT THE NUMBER 
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END OF PASS ROUTINE 




























68$:  ; 66$ OF TIMES TO REPEAT 
MOV (R3) RG EGET THE THE BITS FROM THE RXCSR 
CMP RS,RS R4=? 
BEQ fs sBRANCH IF _THEY MATCH 
HLT *NO MATCH = SHOW OPR. 
2$: MOV #3$.L is SWO9 SETUP 
BIC eRING: ETS! CARDET! are reoars vie terete sCLEAR OUT UNWANTED BITS 
38: CLR (RS), sCLEAR OUT T retea 
MOV sl THE NUMER. 
71$: gIT STIMER. aTXDBUF s CHECK THE TIMER BIT 
72$: BIT #TIMER,@TXDBUF + CHECK THE BIT 
BEQ 72$ us 
DEC (PC)+ “ DECREMENT THE NUMBER 
73$: 5 30F TIMES TO REPEAT 
BNE 71$ MORE TO GO 
tT ae :READ BA yr THE REGISTER 
*BRANCH IF ONLY THE DSC BITS ARE SET 
6s *NO=GO TELL OPR 
(SP)+,7$+6 sRESTORE 
(SP)+, 7$+4 
(SP) 7$+2 
(SP)+ -7$ 
sSCOPE THE WHOLE TEST 
7$: 473017 
173001 
1016 
0 
ee ge rete eon TEST 2 *eeeeeaaaearereneeeeeaenerer 
s#TEST OF THE DUP RUNNING A BINARY COUNT 
PATTERN WITH A CRC CALCULATION AS A SECONDARY STATION 
SRARAAAARAAEEAEAEEEEEAEAEAAARERAEAAAAERAERAAAEAAEAAERERAARAEAERAAEEE 
s3 2£eeeaeeaeanaeaee 
; TEST 2 
3: *2eeeeaaeanaaeese 
ee ne sami fe cee an 
MOV 
MOV AP Ard 
BIS BTSTS HEX :RESET THE DEVICE 
JSR P OR RESET TO FINISH 
TST8 Vise’ H ; TEST CONNECTOR ON? 
BEC 2$ cIF NO, BR. 
MOV WMEXT,103$*2 IF YES, SET MAINT 
102$: MOV #5, TEMPG 
CLR fe sCLEAR OUT DATA 
MOV #cRe. CCITT, XPOLY: SET UP THE POLYNOMIAL 
MOV #-1,CALBCC sSETUP FOR THE FIRST TIME 
16$: MOV CALBCC. SALLOW FOR THE NEXT CHARACTER 


J 3 

































SEQ 35 

C2DPE MACY11 30A(1052) 20-JUL=-83 13:32 PAGE 43 
CZ2DPEC.P11  19-JUL-83 17:09 END OF PASS ROUTINE 

1604 007040 010137 907052 R1,17$ sLOAD DATA 

1605 00704 537 007646 RS, SIMBCC *GO CALCULATE SOFTWARE BCC 

1606 70 600010 SBASED ON THESE PARAMETERS 

160 705 1 17$: 1 sDATA 

1608 007054 600001 20$: 1 sPREVIOUS BCC 

1609 007056 105201 R1 s INCREMENT DATA 

1610 007060 001364 16$ :BR IF MORE TO GO 

1611 007062 012737 000001 001236 ry Tenet sLOAD DATA 

l6le 007070 005037 001240 TERPS : CLEAR EXPECTED 

1613 007074 012737 177776 MOV =7 

1614 007102 052777 004 172310 103$: 81S fsvstst aTXCSR SENTER SYSTEM TEST MODE 

1615 007110 004537 00633 JSR TVEC LOAD INTERRUPT VECTORS 

1616 007114 007402 11$ SRECELV 

1617 007116 007450 12$ : TRANSMITER 

1618 007120 340 340 ‘ sLEVEL 

1619 seReeeentteeeeeeaaeteneeeeeeteneeenedeeanedanereeenereenerenereeeenereeeereeetteeeeet 

1620 S®eFOLLOWING CODE FOR TESTING DUP11 CONNECTED TO MODEM WITH ANALOG LOOPBACK ENABLED** 

1621 SeeeERRERRReHeReeeeekeeeeeeteeeeeeeaseneeeteteeeeeeeereeeeeeereterenretreererereeeeee 

lege 007122 105737 001342 TST8 MDMFLG sMODEN CONNECTED? 

1623 007126 001427 BEQ 04$ cIF BR. 

1624 007130 013703 001310 MOV REPEAT.R3 REPEAT CT CTSDLY 

1625 007134 012777 010000 17225 MOV #MEXT,@TXCSR § :SET EXTERNAL MAINTENANCE 

1626 007142 013737 001314 00737 *SET TIMER 

1627 007150 052777 000006 172234 #DTRIRTS,@RXCSR :E 

1628 007156 013702 00131 106$: CTSDLY,R2 “WAIT FOR CTS 

1629 007162 032777 020000 172222 1053: ACTS, @RXCSR SCLEAR TO SEND UP? 

1630 007170 001006 104$ SIF YES, BR. 

1631 007172 00530 R ;STEP COUNTER IF NO. 

1632 007174 001372 105$ TRY AGAIN. 

1633 007176 005 R ‘ALLOW CTSDLY TO REPEAT 

1634 007200 001 106s “BR IF NOT COMPLETE 

1635 007202 10400 SCTS STILL NOT ACTIVE 

1636 007204 000475 “DO NOT CONTINUE TEST 

1637 POC CTT STOTT TTT TT OCT TT TT TTT TTT TT TTT T TTT TTT TTT TTT TLL LLL LLL LLL LLL LULL 

1638 007206 052777 000020 172176 i06$: BIS WRCVEN.@RXCSR  ;TURN ON THE RECEIVER 

1639 007214 052777 000100 172170 BIS WRINTEN,@RXCSR :TURN ON REC INTERRUPT ENABLE 

1640 007222 105777 172172 1$: TSTB aTXCSR *TEST FOR TX DONE 

1641 007226 100375 BPL $ “BR IF 

164¢ 007230 052777 000020 172162 28: BIS #SEND,@TXCSR TURN ON SEND 

1643 007256 012777 000400 172156 oan MOV #TSOM.aTXDBUF TURN ON START OF MESSAGE 

1645 007244 012737 000005 007274 MOV #5,68$ sLOAD THE NUMBER 

1646 007252 032777 004000 172142 66$: BIT #TIMER, @aTXDBUF 3CHECK THE TIMER BIT 

1647 007 001374 BNE 

1648 007262 032777 004000 172132 67$: BIT #T IMER, @TXDBUF 3 CHECK THE BIT 

1649 007 001774 BEQ 67$ IF CLEAR 

1650 007272 005327 DEC (PC)+ <DECREMENT THE NUMBER 

1651 007274 000005 68$: [OF TsMES TO REPEAT 

165¢ 007276 001 365 BNE 66$ “BR IF MORE TO GO 

1653 007 5337 001244 DEC TEMPS 

1654 007304 901001 BNE 35 

1655 007 104004 HLT é 

1656 007310 105777 172104 3$: TSTB OTXCSR sWAIT FOR DONE 

1657 007314 100353 BPL 101 “BR IF NOT SET 

1658 007316 005077 172100 4$: CLR aTXDBUF ;PUSH OUT DAT 

1659 007322 052777 000100 172070 BIS #TXINTE,@TXCSR :TURN CN TRANSMITTER INT ENABLE 




































SEQ 36 
CZDPE MACY11 30A(1052) 20-JUL-83 13:32 PAGE 44 
CZDPEC.P11  19=JUL-83 17:09 END OF PASS ROUTINE 
1660 007330 005037 177776 CLR PS sLOWER PROCESOR STATUS 
1606 STITTTTTTTTTTTITTTTTTTTTLT TT TEL 
166 7334 105737 001342 TSTB MDMFLG sMODEM FLAG SET? 
1664 007340 001003 BNE 71$ F YES, 
1665 jaenenunneeuceceusengeseeeennanienetenicnsessncasesenscusatateereteacerseeesees 
1666 007342 012737 000040 007372 MOV 73$ sLOAD THE NUMBER 
1667 007350 032777 004000 172044 ie BIT aitath. @TXDBUF ;CHECK THE TIMER BIT 
1668 007356 001374 BNE 1$ <BR IF SET 
1669 360 032777 004000 172034 72$: BIT #TIMER, aTXDBUF ; CHECK THE BIT 
1670 007366 001774 BEQ 72$ IF CLEAR 
1671 007370 005327 DEC (PC)+  DECREMEN NT THE NUMBER 
1672 007372 0 73$: 32. “OF TIMES TO REPEAT 
1673 007374 001365 BNE 71$ MORE TO GO 
1674 007376 104004 HLT 4 s FAILED TO INTERRUPT IN TIME 
1675 007400 104400 6$: SCOPE sSCOPE THIS TEST 
1677 sINTERRUPT SERVICE ROUTINES 
1679 “RECEIVER: 
1680 007402 017737 172006 001326 11$: MOV @RXDBUF.DATA § ;GET THE REGISTER AND DATA 
1681 007410 123737 001240 001326 MPB —s TEMP2,, DATA SCHECK IT 
1682 007416 001401 BEQ +6 sBR IF OK 
1683 007420 104004 HLT 4 *COMPARISON ERROR 
1684 007422 105237 001240 INCB —sCiTEMP sCOUNT UP EXPECTED 
1685 007426 105737 001240 TST8 = TEMP 3 CHECK TO SEE IF DONE 
1686 007432 001005 BNE NO 
1687 007434 004537 006332 JSR RS, SETVEC S YES@-RESET THE VECTORS 
1688 007440 007554 14$ *RECEIVER 
1689 007442 007450 12$ : TRANSMITTER 
1690 007444 340 340 .BYTE 340,340 *LEVEL 
1691 007446 000002 7$: RTI ; 
1692 - TRANSMITTER: 
1693 007450 113777 001236 171744 12$: #MOVB TEMP1.a@TXDBUF ;LOAD THE TRANSMITTER BUFFER 
1694 007456 105237 001236 INCB—C TEMP 1 :UP THE COUNT 
1695 007462 122737 000377 001236 CMPB 0 s«s#'377, TEMP 1 SARE WE DONE 
169 007470 001026 BNE 13$ NO 
1697 00747¢ 127 007502 171706 MOV #21$, @DUPTVC SETUP FOR NEXT PART 
1699 007502 012777 000377 171712 21$: MOV #377,aTXDBUF § :LOAD BUFFER 
1700 007510 012777 007520 171670 MOV #22$.aDUrIVC § ;SETUP NEXT PART 
1701 007516 000413 BR *LEAV 
1702 007520 012777 001000 171674 22$: MOV #TEOM.@TXDBUF ;SET END OF MSG 
1703 007526 000240 NOP STALL 
1704 0075 000240 NOP “DITTO 
1705 007532 042 000120 171660 BIC WSEND!TXINTE,@TXCSR ; TURN OFF TRANSMITTER 
1706 007540 016777 006360 171640 MOV #NO.BTRAP,@DUPTVC ;LOAD VECTOR 
1707 7346 01 716 007334 13$: 5$, (SP) sCRUNCH STACK 
1708 007552 00000 RTI * RETURNS 
1709 “CRC CATCH INT SVC 
1710 007556 117737 171634 001326 14$:  MOVB  @RXDBUF,DATA ;GET FIRST PART OF CRC 
1711 007562 105777 171624 TSTB WAIT FOR SECOND PART 
171@ 007 100375 BPL = “DITTO 
1713 007570 117737 171620 001327 MOVB § @RXDBUF,DATA*1 ;GET THE REST OF THE CRC 
1714 007576 012716 007604 MOV #15$, (SP) *SETUP FOR RETURN 
1715 007602 000002 RTI sRETURN 
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000340 177776 15$: #340,PS sRAISE PS 
010024 CALBCC s INVERT BCC 
010024 001326 a sCOMPARE SOFTWARE AND HARDWARE BCC 
4 sBCC COMPARISON ERROR 
00 171562 WMRESET,@TXCSR ;RESET THE DEVIC 
306 PC ,SMALL sWAIT FOR RESET TO FINISH 
007400 3 LEAVE 
RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
001236 
001240 
001242 
010022 1$: CLR 
001242 MOV 
001240 ROR 
ADC 
000001 BIT 
BEQ 
010022 COM 
010020 2$: MOV 
COM 
010022 BIC 
CLC 
001242 ROR 
010022 MOV 
001242 MOV 
MOV 
BIC 
010022 BIC 
BIS 
010020 001242 BIC 
001242 BIS 
001236 DEC 
BNE 1$ 
001242 010024 MOV TEMPS ,CALBCC 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTS R5 
XPOLY: 
BCCFBK: 
CALBCC: 
CRC1 


6=120001 
CRC.CCITT=102010 


seeeanaeeeanereereceeraeene TEST 3 eteeecececeneegeanereeerere 
s*THIS TEST PROVES THE DEVICE WILL HANDLE THE 
:*DDCMP PROTOCALL. SEND AND RECEIVE SYNCS, 
s*FOLLOWED BY DATA,BCC,DATA AND FINAL ° 


£ SRAARAAAAAAAAAAAEAAEAAAAEAAAEAEAEAAEAAAEAREREAEAAEREAEREERREEEES 








SEQ 37 


L 























SEQ 38 
CZDPE MACY11 30A(1052) 20-JUL-83 13:32 PAGE 46 
CZ2DPEC.P11.  19-JUL=83 17:09 END OF PASS ROUTINE 
1772 s  eeeekeeeeeee 
1773 : 
1774 : TEST 3 
1775 ; 
1776 S  eeaeeeee cere 
1777 ° SRERRAAAAAEREEAAAAEARAEEEEEAEAEEERRAEERAEEEEEEEREREREREREEAEERAEREARERE 
1778 010026 012737 3 001226 TST3: MOV #3, a#TSTNO 
1779 010034 012737 002352 001216 MOV #. EOP NEXT 
1780 010042 105737 001324 TSTB =‘ TCNFLG 3H325 TEST. CONNECTOR ON? 
1781 010046 001403 BEQ 101$ 
1782 010050 012737 010000 010144 MOV WMEXT, 102842 IF YES SET MAINTENANCE 
1783 010056 012737 000340 177776 101$: MOV 0 :RAISE processor STATUS 
1784 010064 004537 006332 JSR R5,SETVEC *SET UP VECTORS 
1785 010070 010626 10$ *BASED oN” 
1786 010072 010450 2$ : THESE 
1787 010074 340 340 .BYTE 340,340 * PARAMETERS 
1788 010076 005037 001236 CLR TEMP? 
1789 010102 005037 001240 CLR 
1790 010106 005037 001242 CLR 
1791 010112 005037 001244 CLR 
1792 010116 005037 001246 CLR TEMPS 
1793 010122 052777 000400 171270 BIS #MRESET, @TXCSR RESET THE DEVICE 
1794 010130 737 004306 JSR PC, SMAL FOR RESET TO FINISH 
1795 010154 012777 100026 171254 aa MOV #DECMOD !26,@PARCSR sLOAD THE MODE AND SYNC CHARACTER 
1797 010142 052777 004000 171250 BIS #SYSTST,a@TXCSR sENTER SYSTEM TEST MODE 
1798 sRRERRHERRARERAAEEARAAAA EAA KAAAKAAAAeAeHTAeeAeeAeeeeteeeeeeeeeeeeeeetereentreeoeeee 
1799 ; sf OLLOWING CODE FOR TESTING DUP11 CONNECTED TO MODEM WITH ANALOG LOOPBACK ENABLED** 
1800 SRARAAAAERARAAEAEAREREEEREEEEREREEERAREEEEAEEREREEAAEEREREREREEERERAEEREREREREREREEE 
1801 010150 105737 001342 TSTB MDMFLG sMODEM CONNECTED? 
1802 010154 001427 BEQ 103$ IF NO BR. 
1803 010156 013703 001310 MOV REPEAT,R3 sREPEAT CTS 
1804 010162 012777 010000 171230 WMEXT,@TXCSR SET EX XTERNAL Y MAINTENIANCE 
1805 010170 013737 001314 010422 MOV LAY SSET TIMER. 
1806 010176 052777 000006 171206 BIS #DTRIRTS.ARXCSR : ENABLE 
1807 010204 013702 00131 105$: MOV CTSDLY,R2 “WAIT FOR CTS 
1808 010210 032777 020000 171174 104$: BIT ACTS, aRXCSR SCLEAR TO SEND UP? 
1809 010216 001006 BNE 103$ IF YES, 
1810 010220 005302 DEC R2 SSTEP COUNT IF NO. 
1811 010222 001372 BNE 104$ TRY 
1812 010224 005303 DEC R3 ALLOW CTSDLY TO REPEAT 
1813 010226 001366 BNE 105$ “BR IF NOT COMPLETE 
1814 010230 104007 HLT ? “CTS STILL NOT ACTIVE 
1815 010232 000476 1 *DO NOT CONTINUE TEST. 
24 010236 pe Ig seat alah cam" palpi cata amasiaia PRR 210 
181 
1818 010234 052777 000420 171150 BIS WRCVEN!STPSYN,@RXCSR =: LOAD RCVEN!STPSYN 
1819 010242 052777 000020 171150 BIS END aTXCSR ‘TURN ON TRANSMITTER 
1820 010250 012777 000426 171144 “OUTPUT A SYNC CHAR 
1821 010256 012737 000030 010306 MOV 430,68 sLOAD T 
1822 010264 032777 004000 171130 66$: BIT ATIMER, @TXDBUF CHECK THE TIMER BIT 
1823 010272 001374 BNE ry :BR IF 
1824 010274 032777 004000 171120 67$: &BIT #TIMER,@TXDBUF CHECK THE BIT 
1825 010302 001774 BEQ 7$ “BR IF CL 
1826 010304 005327 DEC (PC)+ *DECREMENT THE NUMBER 
1827 010306 000030 68$: 30 *OF TIMES TO REPEAT 


SEQ 39 


CZDPE MACY11 30A(1052) 20-JUL-83 13:32 PAGE 47 


CZDPEC.P11.  19=JUL=83 17:09 END OF PASS ROUTINE 
1828 010310 001365 BNE 668 sBR IF MORE TO GO 
1829 010312 105777 171102 TSTB aTXCSR 
1830 010316 100401 BMI +4 
1831 010320 104005 HLT sEXTERNAL CLOCKING STOPPED 
1832 010322 012777 000426 171072 MOV #TSOM! 26, aTXDBUF 
1833 010330 105777 171064 69$: TSTB  artXCsR :CHECK DONE 
1834 010334 100375 BPL ; T SET 
1835 010336 012777 000426 171056 MOV #TSOM!26,aTXDBUF ;SEND SYNC 
1836 010344 052777 000100 171040 BIS WRINTEN,@RXCSR ;TURN ON INTERRUPTS 
1837. 010352 052777 000100 171040 BIS #TXINTE,@TXCSR : 
1838 010360 005037 177776 CLR PS “LOWER PROCESSOR STATUS 
1839 010364 00$: 
1840 23 RAAEAAEREAAEAEAAAAAEAEAEEEREEAAAEAREREREEAEAAEAEEREREREEREEEAAEEAEREEEEEEEEKEEEEE 
7841 010364 105737 001342 TSTB MDMFLG sMODEM FLAG SET? 
1842 010370 001003 E 72$ : S, BR 
1843 33 REAR AEAAEAEEAEAEAAEAEREEEAEAAEARAKEEREERERERARAEAEREEAAARERAAEEEAEKEAEEEEAEEEEEEEE 
1844 010372 012737 000144 010422 V #100..74$ sLOAD THE NUMBER 
1845 010400 032777 004000 171014 72$: BIT #TIMER,@TXDBUF CHECK THE TIMER BIT 
1846 010406 00137 BNE “BR IF SET 
1847 010410 032777 004000 171004 73$: BIT #TIMER,@TXDBUF CHECK THE BIT 
1848 010416 001774 BEQ 73$ >BR IF 
1849 010420 005327 DEC (PC)+ *DECREMENT THE NUMBER 
1850 010422 000144 74$: 100. “OF TIMES TO REPEAT 
1851 010424 001365 BNE 72$ : MORE TO GO 
1852 010426 104005 HLT 5 “FAILED TO FINISH TEST 
1853 010430 1$: 
1854 010430 052777 170762 BIS WMRESET,@TXCSR ;RESET THE DEVICE 
1855 010436 004737 004306 JSR PC, SMALL “WAIT FOR RESET TO FINISH 
1856 010442 012706 001150 MOV #STACK, SP “RESET THE STACK 
1857 010446 104400 SCOPE “SCOPE THIS TEST 
1859 s INTERRUPT SERVICE ROUTINES 
1860 s TRANSMITTER 
1862 010450 012777 000252 170744 28: MOV #252.aTXDBUF § ;LOAD FIRST DATA CHAR 
1863 010456 012737 000026 001236 MOV #26, TEMP1 31989 DATA 
1864 010464 012777 010474 170714 MOV #3$, aDUPTVC sRELOAD VECTOR 
1865 010472 000452 BR ; 
1866 010674 013777 001236 170720 3$: MOV TEMP1,a@TXDBUF  :MOV DATA TO BUFFER 
1867 010502 105237 001236 INCB “UPDATE DATA 
1868 010506 122737 000032 001236 CMPBsaw#'32,, TEMP 1 *CHECK FOR DONE 
1869 010514 001041 : BNE sBR IF MORE TO SEND 
1870 010516 012777 010526 170662 MOV 44$,@DUPTVC *RELOAD VECTOR 
1871 010524 000435 BR 7$ ; N 
1872 010526 012777 001000 170666 4$: MOV #TEOM.@TXDBUF  ;:PUT OUT BCC 
1873 010534 012777 010544 170644 MOV #5$, aDUPTVC “RELOAD VECTOR 
1874 010542 000426 BR *RETURN 
1875 010544 013777 001240 170650 5$: MOV TEMP2,@TXDBUF  :LOAD DATA 
1876 010552 105237 001240 INCB SUPDATE DATA 
1877 010556 122737 000100 001240 CMPB =s-s«s# 100, TEMP2 “CHECK FOR FINISH 
1878 010564 001015 BNE *BR IF MORE TO GO 
1879 010566 012777 010576 170612 MOV #6$,aDUPTVC sRELOAD VECT 
1880 010574 000411 BR 7$ *RETURN 
1881 010576 012777 001000 170616 6$: MOV #TEOM,@TXDBUF __ PUSH OUT DATA BCC 
1882 010604 042777 000120 170606 BIC #SEND' TXINTE ,@TXCSR sSHUT DOWN TRANSMITTER 
1883 010612 012777 006360 170566 MOV #NO.BTRAP, aDUPTVC “RESET VECTOR 






CZDPE MACY11 

CZDPEC.P11 
1884 010620 
ba 10624 
1887 
1888 
1889 010626 
1890 010634 
1891 010642 
a 01064 
18935 01065 
1894 01065 
1895 010656 
1896 010660 
1897 010662 
1898 010670 
1899 010672 
1900 010674 
1902 01071 
1908 91071 
1904 ai0 
1905 010724 
906 010726 
907 010730 
908 010736 
909 010740 
910 010742 

010746 
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SSBVsVsVVs3s 
PUM OOBNAUNEWN=O 


Mire 
Ww 


oo 


ee ee ceed cee ee ee ee ee ceed ee ee ee ee cee ee ee ee eed ed ed ad asd = = = 
NIST = 


eed ed ceed eed ceed cee eed ee ee ee ee ee ee eed ce ee eed ee ee ee ee ee eed ed ed ed od od = eed ced ond aed od 
ee cee ee cee ee cee ce ee ee we ee ee ee ee et ed ed od =o ao - = 


SSBVEREUN AS SON 


RAARA AAAS 
oooooooooooooooscooseoessessssesS 


7 
eed ae coh cad od 


= 
oO 
—~ 
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Sse 
NTF 


SRERSELENEN SERS 


1 


ACNOSS) | ,cpavu-65 13: 


JUL-8 
012716 
2 


100001 


eexsssus 

MaNNEsu we 

Weaussas 
NN 


S 


4 
ERR 


=P 
YS 


010364 


170560 
170554 
001242 


001244 


? 000252 


000026 
010712 
170476 
001244 
001246 
001246 
000032 
010766 
170422 
001244 


011014 
170374 
010000 


001832 
001266 


001332 


000100 


011124 


001242 
001244 


001244 

1246 
170472 
001244 


001244 


001246 
170416 
001244 


170370 
001326 
001326 
170340 


001244 


001244 


001332 
170260 





































32 PAGE 48 
END OF PASS ROUTINE 
7$: MOV #100$, (SP) 
RTI 
sRECEIVER 
10S: @RXCSR, TEMP 
MOV ARXDBUF , TEMP4 
BMI 1 
11$: TST TEMPS 
BPL 12$ 
HLT 5 
12$:  CMPB #252, TEMPS 
BEQ 13$ 
HLT 5 
13$: MOV #26,TEMPS 
OV #14$, @DUPRVC 
14$: MOV @RXDBUF , TEMPS 
TST TEMP4 
BPL 15$ 
HLT 5 
15$: CMPB TEMPS, TEMP4 
BEQ 16$ 
HLT § 
16$: INCB TEMPS 
pee #32, TEMPS 
OV #17$, @DUPRVC 
17$: MOV @RXDBUF , TEMPS 
TST TEMP 
BPL +4 
HLT 
MOV #18$, @DUPRVC 
BR 6$ 
18$: MOV @RXDBUF , DATA 
BIT #CRCERR, DATA 
BNE 1 
HLT 5 
CLR MIND 
BR 26$ 
20S: MOV @RXDBUF , TEMP4 
TST TEMPS 
BPL i$ 
HLT 
21$:  CMPB IND. TEMPS 
BEQ 
HLT 
22$: INCB MIND 
CMPB ,MIND 









268 
#23$ ,aDUPRVC 
26$ 









SETUP RETURN 
;RETURN 


sSAVE CSR 
sSAVE BUFFER 


; CHECK Ai DONE 


; S 
sFALSE INTERRUPT 
sCHECK FOR ERROR 


BR_IF 


; NO ERROR 
RECEIVER ERROR 
:C DATA 


: A MATCH 
sDATA COMPARE ERROR 
OAD NEXT EXPECTED 


RELOAD VECTOR 


GET DATA 
sCHECK FOR ERROR 
F NO ERROR 


DATA 





RROR 

3 CHECK 
sBR IF A 
DATA COMPARE 








BR IF MOR 


[SET UP NEXT VECTOR 


sLEAV 
GET THE BUFFE 


sTEST FOR ERROR 


DATA 
ERROR 


: DATA 
sCHECK FOR FIRST PART FINISH 








: OK 
RECEIVER ERROR 


sRELOAD THE VE 


sGET DATA 
CHECK FOR CRC 


sSETUP FOR NEX 


:GET DATA 

sCHECK FOR ERROR 
3 NO ERROR 
sRECEIVER ERROR 


; CHECK 
3BR_IF A MATCH 


CTOR 





DATA 


sDATA oe 
UPDATE SOFTWARE DATA 


; CHECK 


FOR FINISH 


SEQ 40 


SEQ 41 
CZDPE MACY11 30A(1052) 20-JUL-83 13:32 PAGE 49 
CZDPEC.P11 19=JUL-83 17:09 END OF PASS ROUTINE 








1940 011126 017737 170264 001244 238: @RXDBUF,TEMP4  ;GET DATA 

1941 011132 005737 001244 TEMP4 *CHECK FOR ERROR 

1942 011136 100001 e6s BR IF 

1943 011140 104005 RECEIVER ERROR ON FIRST OCTET 
1944 :OF SECOND BCC 

1945 011142 105777 170244 24$: @RXCSR sTEST 

1946 011146 100375 4$ sBR IF NOT SET 

1947 011150 017737 170240 001326 ARXDBUF ,DATA  :GET SECOND BCC OCTET 

1948 011156 032737 010000 001326 #CRCERR. DATA ; CHECK FOR BCC ERROR 

1949 011164 001001 $ :BR IF 

1950 011166 104005 “BCC ERROR ON SECOND PART OF MSG 
1951 O1117 O12716 010430 S$: #1$, (SP) “SETUP TO FINISH TEST 

1958 11174 00000 6$: *RETURN 

1954 


SEQ 42 


END OF PASS ROUTINE 


Nee > eatin 13:32 PAGE 50 
JUL-83 17: 


CZDPE MACY1 , 


ZDPEC.P11 
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eERRTAB: 


CORMAX : 
END 


RERESSRRS eee ze Be ase eees EE : 
~w ™ cree e re -—— -- --— -r-Oer - 

wr A) - --— --— -o oe -rc-Oen - 
OMOP-K. CU wwvwoowsy ~w we a w Osan 
ReeaaSes « RkeRaRR BBR BER EES SSSsos sSBss 
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011 

011 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Lcd eed 








CZDPE MACY11 
ZDPEC.P11 
001344 
SINR 0 
31TO = 000001 
3iT1_ += 000002 
31T10 = 002000 
31T11 = 004000 
ite = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
alts = 000100 
BIT? = 000200 
BIT8 = 000400 
BIT9 = 001000 
onsets 





19=JUL-8 


20-JUL-83 13: 
17:09 


1005* 
x 

















32 PAGE 52 

1041* 105 

* * 17 
1738% 17461% 1744 
1066 11034 
hy 1736 
5 593 
57 05 $35 
576 a 
575 623 
574 91 602 
573 $4 597 
586 86 
585 612 
584 611 
583 
582 610 
581 90? 
580 95 
579 594 
9454 
9464 
1603 1717* 
1555 
1067 1083* 11014 
1409 
886 888 890 
851 1192 
1956 
192 1948 
13654 
1555 1808 
1628 
904 13714 
1680* 1710* 
117 11934 
17 
1 
16 
7350 
759 
829 1529 
1373 
1541 1555 
747 


~ 
Ro 
wae 
a a 
&a@oc$#ow 


1399¢ 1 








1748 


628 
607 


1754* 
1102 


892 


1713* 


i371 


14818 


E 4 


CROSS REFERENCE TABLE -- USER SYMBOLS 


627 


17614 


1176 1178 


1718 1921* 1922 1947* 1948 


SEQ 45 


F 4 
SEQ 44 









CZDPE MACY11 sare 20-JUL-83 13:32 PAGE 53 
ZDPEC.P11 19=JUL-83 17:09 CROSS REFERENCE TABLE -- USER SYMBOLS 


001402 6908 §8=— 911 1378 1399 1479% 1901% 1913* 1919* 1925 1938 
6994  1385* 







001424 

ited 1303" 1404* 1482* 

sess et 1402* 1403 1480" 1697¢ 1700* 1706* 1864* 1870 1873* 1879* 1883+ 
001500 77 838 848 1376 

001504 

01117 

atte 

011310 

011347 

011367 

011412 

011466 

O0t28e 1203* 

001351 937*  1153* 1166 1180* 
0041 

00427 

000000 

006234 






1389 
001432 1383 
001434 
oS 36 1394 
005560 1113 1117 13584 
001350 
104404 
104403 792 802 808 814 818 822 826 1416 
003110 
40 
3236 
003314 10494 1050 
001220 1172 1554* 
001352 
003306 10464 
001 ¢ 35 938+ 
001 880* 921" 1150 1152 
° 001442 
LJM 005321 
Sk.A 001440 
MASTEK ones 
RLF 3 1171 1179 12364 1415 1432 
SR 00470 
MCSRX 004555 
MDATA 00551 1091 13364 
LG 00134 79 796 846* 1622 1663 1801 1841 
MDSC 00537 


G 4 
SEQ 45 
CZ0PE MACY11 Np 20-JUL-83 13:32 PAGE 54 
CZDPEC.P11 19=JUL-85 17:09 CROSS REFERENCE TABLE == USER SYMBOLS 





PASS 004375 
RRPC 004702 











RABORT= 
RCRCIN= 040000 
RCRC7T= 100000 








1598 16¢2 1782 1804 
1932 1935* 1936 
1438 
1833 
153 1594 1721 1793 1854 
001 
00461 S 1417 
sag he 
004568 
pol ece 1208 1508* 1593* 1779s 
006354 
006360 1883 
006306 
001325 845* 1455 1461 
040000 
104405 786 1418 
“ 3156 
18 1795 
PARE 1014 1030 1032 1034 
882 914 
PERF 
1 
POP 
PRI 
PS 859* 1613*  1660* 1716* 1783* 1838+ 
893* 932 


i. SEQ 46 


















CZDPE WMACY11 ape | 20-JUL-83 13:32 PAGE 55 
ZDPEC.P11 19-JUL-83 17:09 CROSS REFERENCE TABLE -- USER SYMBOLS 
= 000020 1638 1818 
CACT= 004000 
= 801810 
131 1624 1803 
RESREG 004174 11944 
RESTRT 002476 9044 
RESOS = 104407 1194 
RETURN 001214 7518 871* 873 904* 941% 944 1208* 1210 1233 1431¢ 1441 1442 
RING = 040000 1555 
RINTEN= 000100 1639 1836 
RSOM = 000400 
000004 1541 1555 1806 
001412 1Reee Fy 1536* 1539 1627* 1629 1638* 1639 1711 1806* 1808 
001414 1383*  1384* 1386 1387 1680 1710 1713 1890 1903 1915 1921 
1940 1947 
100000 
000200 
001320 746% 831* 894% 
001266 1051* 1214 
1306 
001250 1051* 
001270 
001252 1051* 
001272 
001254 1051* 
001274 
001256 1051* 
001276 
001260 1051* 
1300 
001262 1051* 
001302 
1264 
1304 
1154 
1574 1675 1857 
1642 1705 1819 1882 
6834 794 804 810 816 820 824 828 
1615 1687 1784 
6364 
1605 17264 
12204 1538 1595 722 1855 
1064* 1085 1983° 11024 
5784 1517 155 
6404 825 1524 
4414 740 1209 1229 1856 
5854 1517 1541 1555 
Pe 821 1518 
oe 8 
5144 756 758 766 863 923 930 947 953 1143 1148 1197 1204 
ss a 





I 4 




















SEQ 47 
CZDPE MACY11 gOACNOS 20-JUL-83 13:32 PAGE 56 
CZDPEC.P11 19-JUL-83 17:09 CROSS REFERENCE TABLE -- USER SYMBOLS 
4214 1413 
Swo02 4204 
swos 4188 
S 4174 
4164 
4154 
4144 
4134 1204 
4124 947 
4114 1206 
4104 930 
4094 953 1143 
4084 1148 
4074 
4064 
oie 1614 1797 
one 798* 805 806 844% 1453 1469 1513 1596 1780 
6234 
1068 13544 
5394 844 849 853* 1611* 1693 1694* 1695 1729* 1752* 
1788*  1863* 1868 
5404 849% 1681 1684* 1730* 1734 1789% 1875 1876* 1877 
5414 1731* 1745 - 1750* 1754 1790* 1889« 1891 
5424 15998 1890* 1894 1903* 1904 1907 1915* 1916 1928* 
1929 1932 
5434 1792s 1910* 1911 
6274 170 
ocoe Fe 1560 1646 1648 1667 1669 1822 1824 1845 1847 
2608 928 
14 19554 
5214 958 
5224 960* 
11344 
13604 
6284 1643 1820 1835 
5324 750* 1217 1427 1429 1507* 1592 1778 
1424 1441 15074 
1508 15924 
1333 17784 1955 
866* 867* 869« 870* 9244 
se 
TXCSR 001420 6974 1390* 1391* 1392 1537 15402 1594* 1614* 1625* 1640 1642 1656 1659* 
1705* 1721% 1793% 17972 ##=#%1804* #$%11819* # #$=%1829 1333 1837* 1854* 1882* 
TXDBUF 001422 6984 1394% 1395 1396 1543 1545 1558 1560 1643* 1she 1648 1667 
1669 1693* 1699* 1702* 1820* 1822 1824 1832* 1835* 1845 1847 1866* 
1872 1875* 1881* 
TXDLAT= 100000 6014 
TXDONE= 000200 6094 
TXINTE= 000100 6104 1659 1705 1837 1882 
TYPDAT 004162 1169 1187 11904 
TYPE = 104402 6674 765 847 865 872 884 885 887 889 891 957 970 989 


CZ0PE MACY11 30A(1052) 
CZDPEC.P11 19=JUL=83 






TYPMSG 004062 
SER = 000000 


SCNT 003614 
004150 
003754 
002510 
XERR 00253 
HE 00527 
XPASS 002524 
XPOLY 010020 
XSTATQ 00544 
XTSTN 004 
XVEC 002516 
$E = 





-TYPE 002716 





8g 


12264 





J 4 


32 PAGE 57 
CROSS REFERENCE TABLE == USER SYMBOLS 


1171 1174 1175 


17594 
15944 1779 
1581 1586 
15814 1582 
6694 ou 
4978 00# 
7204 722m 
1719 1830 


1230 


1177 


7 
1917 


1179 


1786 
6738 
5074 
724 

19554 


1183 1188 


1772 17804 
1767 = «17704 
677# = 6 


S094 ry Fp 
13554 13574 


SEQ 48 


1231 1373 1415 


19554 

6814 68 
5664 5674 
13594 13604 





CZDPE MACY11 30A(105 





- ABS. 


CZDPEC.P11 


011624 





19=JUL-8 


ERRORS DETECTED: 0 


Spat BIN. CZDPEC. See OLA. : TOC=CZDPEC.MAC,CZDPEC.P11" * 


¢ 17° é 


1489 
1909 


802 
784 


1594 


RUN-TIME "RATIO: 41/11=3.5 


CORE USED: 


17K (335 PAGES) 


1938 


808 
1416 


1721 


oo 
oh NO. 
—&— fo( 


814 


1793 


JUL“83 13:32 PAGE 59 
CROSS REFERENCE TABLE -- MACRO NAMES 


818 


1853 


822 


826 


4 


677 


1720 


679 


1814 


681 


1831 


683 


1852 


1893 


1896 


SEQ 49 


